(lisp_align_malloc): If BASE is 0, call memory_full.

diff --git a/src/alloc.c b/src/alloc.c
index 56a4c0b6ca0247a998569c8eb817a0a8c02291a6..a001413cb522e6f9a3f0444dda2b83e448d085dd 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -756,6 +756,11 @@ lisp_align_malloc (nbytes, type)
 #else
       base = malloc (ABLOCKS_BYTES);
       abase = ALIGN (base, BLOCK_ALIGN);
+      if (base == 0)
+       {
+         UNBLOCK_INPUT;
+         memory_full ();
+       }
 #endif
 
       aligned = (base == abase);